perm filename RED.MAC[LSP,JRA]1 blob sn#182467 filedate 1975-10-19 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TURN ON "%","{"
C00004 00003	.LAST USED LABEL IS P150:
C00005 ENDMK
C⊗;
.TURN ON "%","{";
.FONT 1 "BASL30";		<<normal font>>
.FONT 2 "BASB30";		<<headings>>
.FONT 3 "ASI30.FNT[LSP,JRA]"	<<mexpr font:basi30+>>
.FONT 4 "SUB";			<<subscripts>>
.FONT 8 "SUP";			<<superscripts>>
.FONT d "NGB30";		<<for denotational semantics>>
.FONT e "GERM35";		<<for true and false>>
.FONT f "mg.fnt[lsp,jra]"	<<for scottery and buggery>>
.FONT G "GRK30"			<<GREEK>>
.FONT 5 "grfx35"		<<yet another attempt at trees>>
.				 << scott brackets under ( and ) >>
.COMMENT 
.
.TREE.FNT CONTAINS:
.G gc marker. A AC pointer. α atom header.~ upper and lower box.
. [ left end. ] right end. NIL. / and \
.LAST USED LABEL IS P150:
.;

.SELECT 1;

.MACRO TABIT1(X)⊂ TURN ON "\" NOFILL TABS X;⊃
.MACRO TABIT2(X,Y)⊂TURN ON "\" NOFILL TABS X,Y;⊃
.MACRO TABIT3(X,Y,Z)⊂TURN ON "\" NOFILL TABS X,Y,Z;⊃

.MACRO CENTERIT ⊂TURN ON "←";NOFILL;⊃